home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Herra / TIMWIN.ZIP / RNOISE.CMD < prev    next >
OS/2 REXX Batch file  |  1993-09-22  |  1KB  |  54 lines

  1. ; 0.4.3 RNOISE                                                     <<TIM>> DEMO
  2. ; Adds shot noise and removes it using a percentile filter
  3. ; Last Update 10 - 11 - 1990
  4. ; 07/12/92  expects image in a
  5. ;******************************************************************************
  6. #include timdefs.h
  7.  
  8. parms
  9.   int windisplay
  10. endparms
  11.  
  12. int nnp
  13. int ndiff
  14. int rels
  15. int phor
  16. int pos
  17. int diff
  18. int err
  19. float fres
  20.  
  21. ;debug
  22.  
  23. dest p
  24. show p
  25. copy a            ;get image
  26. dest q
  27. noise 1                ;produce some noise
  28. dest s
  29. comp q > 230
  30. dest q
  31. comp q < 26
  32. inv
  33.  
  34. and p q                ;work the noise into the image
  35. or s q
  36. *windispl h (windisplay+WINLUT1)
  37.  
  38. era s
  39. dest s
  40. perc q 3               ;perform the percentile filter
  41. *windispl i windisplay
  42. dest r
  43. perc q 5               ;again with a larger filter
  44. *windispl i windisplay
  45.  
  46. era x 1                ;prepare for image text
  47. err = chk lut 2 3
  48. dest p
  49. text p 1 250 99 "1. Original"
  50. text q 1 250 70 "2. 20% shot noise"
  51. text s 1 250 20 "3. After 2 times median filter 3x3"
  52. text r 1 250 50 "4. After 5x5 median filter"
  53. stop
  54.